home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 February / Ahoy_Magazine_85-02_1985_Double_L.d64 / sprite m_s (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  52 lines
  1. 1 rem=-=-=-=-=-=-=-=-=-=-=-=
  2. 2 rem= multi-color sprite  =
  3. 3 rem=    maker/saver      =
  4. 4 rem=-=-=-=-=-=-=-=-=-=-=-=
  5. 5 input"what is the filename for this sprite";fl$
  6. 10 input "store in which memory block (192..199)";bk
  7. 20 mem=64*bk
  8. 25 open 8,8,8,"@0:"+fl$+",s,w"
  9. 26 rem>>>for tape--replace line 25 with this: open 8,1,1,fl$
  10. 30 for row=0 to 20
  11. 40 read a$
  12. 50 for byte=0 to 2 : ttl=0
  13. 60 for pair=3 to 0 step -1
  14. 70 q$=mid$(a$,4+4*byte-pair,1)
  15. 80 q=0
  16. 90 if q$="*" then q=2 : goto 120
  17. 100 if q$="1" then q=1 :goto 120
  18. 110 if q$="2" then q=3
  19. 120 ttl=ttl+(4^pair)*q
  20. 130 next pair
  21. 140 print ttl,
  22. 150 print#8,ttl
  23. 160 poke mem,ttl : mem=mem+1
  24. 170 next byte
  25. 180 print
  26. 190 next row
  27. 200 close 8
  28. 210 end
  29. 995 rem .=bkgd / *=sprite color
  30. 996 rem  1=mc#1 / 2=mc#2
  31. 1001 data............
  32. 1002 data............
  33. 1003 data............
  34. 1004 data............
  35. 1005 data............
  36. 1006 data............
  37. 1007 data............
  38. 1008 data............
  39. 1009 data............
  40. 1010 data............
  41. 1011 data............
  42. 1012 data............
  43. 1013 data............
  44. 1014 data............
  45. 1015 data............
  46. 1016 data............
  47. 1017 data............
  48. 1018 data............
  49. 1019 data............
  50. 1020 data............
  51. 1021 data............
  52.